home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 123 / Tiger_Disk_123_20xx_Tiger-Crew-Disk_de_Side_B.d64 / quick titles (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  401 lines
  1. 100 print"[147]":poke53280,3:poke53281,0
  2. 105 dimc$(16),ch$(15),ld(10,7),pc$(27),pt$(27)
  3. 110 printchr$(142):b$="            "
  4. 115 fori=0to15:readc$(i):next
  5. 120 fori=0to15:readch$(i):next
  6. 125 fori=1to27:readpc$(i),pt$(i):next:fori=1to4:readlt(i),lt$(i):next
  7. 130 print"[147][159]                                        ";
  8. 135 print"          loadstar presents...          ";
  9. 140 print"                                        ":print
  10. 145 print" [162] [162][162] [146][162] [159]   [146]    [146] [156]  [162]  [162][146]   [162] [162][162] [146][162]    [146] [162] [162][146] "
  11. 150 print"[145]   [146]    [146] [159]   [146]    [146] [156]     [146]      [146]         [162][146]   "
  12. 155 print"[145] [162] [146][162][162] [162][146] [159]   [146]    [146] [156]     [146]      [146]  [162][162]    [162] [146][162]  "
  13. 160 print"[145]    [162][162][162][146] [159]  [162][162][162][162][146]  [156]  [162][162][162][162][146]    [162][162][162][162][146]   [162][162][146]  [162][162][146] "
  14. 165 printtab(8)"[158][161][187][172][146][161][129] [187][172][146] [149][161][187][172][146][161][150][187][146][161]  [153][187][172][162][146][161][154][172][172][187][146][187]"
  15. 170 printtab(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161]  [153][161][188][146][161] [154][188][188][146][162] "
  16. 175 printtab(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161] [187][153][161][146][161][190][187][154][172][187][161][146][161]"
  17. 180 printtab(8)"[158] [162][162][146] [129] [162][162][146] [149] [162][162][146] [150][162][162][162][146][190][153][162][162][162][146][190][154] [162][162][146] "
  18. 185 print""tab(6)"[150]                            [146]"
  19. 190 printtab(6)"[150] [159]                          [150] [146]"
  20. 195 printtab(6)" [159] (c) 1988   by jim speers [150] [146]"
  21. 200 printtab(6)" [159]                          [150] [146]"
  22. 205 printtab(6)" [159]   spacebar to continue   [150] [146]"
  23. 210 printtab(6)" [159]                          [150] [146]"
  24. 215 printtab(6)"                            [146]";
  25. 220 getz$:ifz$=""orz$<>" "then220
  26. 225 print"[147]"
  27. 230 poke214,10:print:printtab(8)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  28. 235 printtab(8)"[221][150]                     [159][221][146]"
  29. 240 printtab(8)"[221][150] instructions? (y/n) [159][221][146]"
  30. 245 printtab(8)"[221][150]                     [159][221][146]"
  31. 250 printtab(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"
  32. 255 getz$:ifz$=""or(z$<>"y"andz$<>"n")then255
  33. 260 ifz$="y"thengosub1165
  34. 265 br$="[150][194][146]":print"[147]"
  35. 270 printtab(7)br$"                       "br$
  36. 275 printtab(7)"[150][194]       font menu       [194][146]"
  37. 280 printtab(7)br$"                       "br$
  38. 285 printtab(7)br$"                       "br$
  39. 290 printtab(7)br$" [159]a) upper case/graphic "br$
  40. 295 printtab(7)br$" [159]b) lower/upper case   "br$
  41. 300 printtab(7)br$" [159]c) loadstar           "br$
  42. 305 printtab(7)br$" [159]d) niles              "br$
  43. 310 printtab(7)br$" [159]e) cass               "br$
  44. 315 printtab(7)br$" [159]f) bold               "br$
  45. 320 printtab(7)br$" [159]g) narrow             "br$
  46. 325 printtab(7)br$" [159]h) underlined         "br$
  47. 330 printtab(7)br$" [159]i) double width       "br$
  48. 335 printtab(7)br$" [159]j) script             "br$
  49. 340 printtab(7)br$" [159]k) reversed           "br$
  50. 345 printtab(7)br$" [159]l) italic             "br$
  51. 350 printtab(7)br$" [159]m) your custom font   "br$
  52. 351 printtab(7)br$"                       "br$
  53. 352 printtab(7)br$"[158] q) quit to loadstar   "br$
  54. 355 printtab(7)br$"                       "br$
  55. 360 printtab(7)br$"                       "br$
  56. 365 printtab(7)br$"     select letter     "br$
  57. 370 printtab(7)br$"                       "br$
  58. 375 getz$:ifz$=""then375
  59. 376 ifz$="q"then3000
  60. 380 ifz$<"a"orz$>"m"then375
  61. 385 ifz$<>"m"then440
  62. 390 print"[147]":poke214,11:print
  63. 395 printtab(7)"[159]filename: [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  64. 400 poke214,11:print:printtab(17);
  65. 405 gosub1150:l1=32:h1=127:l2=160:h2=255:li=16:gosub1080:nf$=q$:ifq$=""then265
  66. 410 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  67. 415 ifer<>63then465
  68. 420 poke214,11:print:print"   insert disk containing your font.
  69. 425 [153]:[153][163]14)"hit spacebar."
  70. 430 [161]qz$:[139]qz$[178]""[176]qz$[179][177]" "[167]430
  71. 435 [137]465
  72. 440 [139]z$[178]"a"[167]bs[178]53248:[151]53272,21:sa[178]0:[137]475
  73. 445 [139]z$[178]"b"[167]bs[178]55296:[151]53272,23:sa[178]7:[137]475
  74. 450 nf$[178]"font"[170]z$
  75. 455 [153]"load":[151]214,10:[153]
  76. 460 [153]"      please wait while loading..."
  77. 465 [158]57812nf$,8,0:[151]780,.:[151]781,0:[151]782,8:[158]65493
  78. 470 bs[178]2048:[151]53272,19:sa[178]7
  79. 475 r$[178]"wait":[139]z$[178]"i"[167]r$[178]""
  80. 480 [153]"load":[151]214,11:[153]:
  81. 485 [153][163]7)r$"enter title: tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(wait"
  82. 490 [151]214,11:[153]:[153][163]20);
  83. 495 [141]1150:l1[178]32:h1[178]127:l2[178]160:h2[178]255:li[178]10:[141]1080
  84. 500 in$[178]q$
  85. 505 [153]"load"[163]12)r$" color numbers: wait"
  86. 510 [153]r$"0-black 4-purple  8-orange 12-m.graywait"
  87. 515 [153]r$"1-white 5-green   9-brown  13-l.greenwait"
  88. 520 [153]r$"2-red   6-blue   10-l.red  14-l.bluewait"
  89. 525 [153]r$"3-cyan  7-yellow 11-d.gray 15-l.graywait"
  90. 530 [153]"  "in$
  91. 535 [153]r$" enter color # for indicated letter: wait"
  92. 540 [129]i[178]1[164][195](in$)
  93. 545 [151]214,8:[153]
  94. 550 [153][200](b$,i[170]1)"def^"
  95. 555 [151]214,12:[153]
  96. 560 [153]r$"color #      cmdcmdcmdcmdcmdwait";
  97. 565 [141]1150:l1[178]48:h1[178]57:li[178]2
  98. 570 [139]z$[178]"i"[167][141]1075:[137]580
  99. 575 [141]1080
  100. 580 c(i)[178][197](q$):[139]c(i)[179]0[176]c(i)[177]15[167]555
  101. 585 [130]i
  102. 590 [153]:[153]r$"border color #      cmdcmdcmdcmdcmdwait";
  103. 595 [141]1150:l1[178]48:h1[178]57:li[178]2
  104. 600 [139]z$[178]"i"[167][141]1075:[137]610
  105. 605 [141]1080
  106. 610 bo[178][197](q$):[139]bo[179]0[176]bo[177]15[167][153]"on";:[137]590
  107. 615 [153]:[153]r$"screen color #      cmdcmdcmdcmdcmdwait";
  108. 620 [141]1150:l1[178]48:h1[178]67:li[178]2
  109. 625 [139]z$[178]"i"[167][141]1075:[137]635
  110. 630 [141]1080
  111. 635 ba[178][197](q$):[139]ba[179]0[176]ba[177]15[167][153]"on";:[137]615
  112. 640 e[178]0:[129]i[178]1[164][195](in$):[139]ba[178]c(i)[167]e[178]1:m[178]i:i[178][195](in$)
  113. 645 [130]i:[139]e[178]0[167]655
  114. 650 [153]:[153]r$"screen color same as letter #    cmdcmdcmdcmd";m;"onononwait":[137]615
  115. 655 [151]646,[194](53281)
  116. 660 [153]"load"in$
  117. 665 [151]56333,127:[151]1,[194](1)[175]251
  118. 670 [129]i[178]1[164][195](in$):l[178][194](1023[170]i):x[178]bs[170]8[172]l
  119. 675 [129]j[178]0[164]7:ld(i,j)[178][194](x[170]j):[130]j
  120. 680 [130]i:[151]1,[194](1)[176]4:[151]56333,129
  121. 685 [151]53272,21
  122. 690 [151]214,10:[153]:[153][163]9)"def                      wait"
  123. 695 [153][163]9)"     patience....     wait"
  124. 700 [153][163]9)"                      wait"
  125. 705 [129]i[178]1[164]4:p$(i)[178]"":[130]
  126. 710 [129]k[178]0[164]6[169]2:i[178]k[173]2[170]1:[151]646,lt(i)
  127. 715 [151]214,13:[153]:[153][163]9)"                      wait"
  128. 720 [153][163]9)" working on"lt$(i)"line! wait"
  129. 725 [153][163]9)"                      wait"
  130. 730 [129]j[178]1[164][195](in$):[139]j[178]1[167]p$(i)[178]p$(i)[170]c$(c(j)):[137]745
  131. 735 [139]c(j)[178]c(j[171]1)[167]745
  132. 740 p$(i)[178]p$(i)[170]c$(c(j))
  133. 745 [129]l[178]7[164]1[169][171]2:t[178]0
  134. 750 [139](ld(j,k)[175](2[174]l))[178]2[174]l[167]t[178]t[170]1
  135. 755 [139](ld(j,k)[175](2[174](l[171]1)))[178]2[174](l[171]1)[167]t[178]t[170]2
  136. 760 [139](ld(j,k[170]1)[175](2[174]l))[178]2[174]l[167]t[178]t[170]4
  137. 765 [139](ld(j,k[170]1)[175](2[174](l[171]1)))[178]2[174](l[171]1)[167]t[178]t[170]8
  138. 770 [145]t[170]1[137]785,785,785,775,785,785,775,775,785,785,775,775,785,775,775,775
  139. 775 [139][201](p$(i),1)[179][177]"wait"[167]785
  140. 780 p$(i)[178][200](p$(i),[195](p$(i))[171]1)[170][202](ch$(t),2,5):[137]790
  141. 785 p$(i)[178]p$(i)[170]ch$(t)
  142. 790 [130]l,j,k
  143. 795 [151]53280,bo:[151]53281,ba:[153]"load"
  144. 800 tb[178](40[171]([195](in$)[172]4))[173]2
  145. 805 [139]tb[178]0[167][129]i[178]2[164]4:p$(i)[178]"on"[170]p$(i):[130]i
  146. 810 [151]53272,21
  147. 815 [129]i[178]1[164]4:[153][163]tb)p$(i):[130]i
  148. 820 x[178]15[175]([194](53281)):[139](x[178]0[176]x[178]9[176]x[178]11[176]x[178]12)[167][153]"open";:[137]830
  149. 825 [153]"stop"
  150. 830 [151]214,13:[153]:[153]b$b$b$
  151. 835 [153]"on"[163]10)"save to disk? (y/n) ";
  152. 840 [161]z$:[139]z$[178]""[176](z$[179][177]"y"[175]z$[179][177]"n")[167]840
  153. 845 [139]z$[178]"n"[167]930
  154. 850 [151]214,13:[153]:[153]b$b$b$
  155. 855 [153]"on    enter filename: tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  156. 860 [151]214,13:[153]:[153][163]20);
  157. 865 [141]1150:l1[178]35:h1[178]127:s1[178]32:s2[178]33:li[178]16:[141]1080:[153]
  158. 870 [153]b$b$b$
  159. 875 nf$[178]q$
  160. 880 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15
  161. 885 [139]er[179][177]63[167]905
  162. 890 [153]"onon      insert a disk for your data"
  163. 895 [153]"              hit spacebar."
  164. 900 [161]z$:[139]z$[178]""[176]z$[179][177]" "[167]900
  165. 905 [159]15,8,15:[159]3,8,3,"0:"[170]nf$[170]",s,w"
  166. 910 [132]15,er,er$
  167. 911 [139]er[177]20[167][153]"load","disk error "er$:[160]3:[160]15:[137]850
  168. 915 [152]3,bo:[152]3,ba:[152]3,tb
  169. 920 [129]i[178]1[164]4:[152]3,p$(i):[130]
  170. 925 [160]3:[160]15
  171. 930 [151]214,13:[153]:[153]b$b$b$
  172. 935 [151]214,15:[153]:[153]b$b$b$
  173. 940 [153]"ononon       listing to printer? (y/n)       ";
  174. 945 [161]z$:[139]z$[178]""[176](z$[179][177]"y"[175]z$[179][177]"n")[167]945
  175. 950 [139]z$[178]"n"[167]1020
  176. 951 [159]15,4,15:[160]15:[139]st[179][177]0 [167] [141] 3100:[137]935
  177. 955 [159]4,4,sa:[152]4,in$:[152]4
  178. 960 [129]i[178]1[164]4:[152]4:[152]4,"line";i:[152]4:nl[178]1:[152]4,"[quote]";
  179. 965 [129]j[178]1[164][195](p$(i)):[129]k[178]1[164]27
  180. 970 [139][202](p$(i),j,1)[179][177]pc$(k)[167]985
  181. 975 [152]4,"["pt$(k)"]";
  182. 980 nl[178]nl[170]1:[139]nl[178]11[167][152]4:nl[178]0
  183. 985 [130]k,j:[152]4,"[quote]";:[152]4
  184. 990 [130]i:[152]4
  185. 995 [152]4,"for border color used, poke53280,"[202]([196](bo),2,2)
  186. 1000 [152]4:[152]4,"for screen color used, poke53281,"[202]([196](ba),2,2)
  187. 1005 [139][195](in$)[178]10[167][152]4,"no tab required to center.":[137]1015
  188. 1010 [152]4:[152]4,"to center, use tab("[202]([196](tb),2,2)") before each line"
  189. 1015 [152]4:[160]4
  190. 1020 [151]214,13:[153]:[153]"       return to loadstar? (y/n)"
  191. 1025 [161]z$:[139]z$[178]""[176](z$[179][177]"y"[175]z$[179][177]"n")[167]1025
  192. 1030 [139]z$[178]"n"[167][151]53280,0:[151]53281,0:[137]225
  193. 1035 [151]214,13:[153]:[153]"             are you sure?            "
  194. 1040 [161]z$:[139]z$[178]""[176](z$[179][177]"y"[175]z$[179][177]"n")[167]1040
  195. 1045 [139]z$[178]"n"[167][151]53280,0:[151]53281,0:[137]225
  196. 1050 [137] 3050
  197. 1075 rs$[178]"":o$[178]"wait"
  198. 1080 [151]204,0:q$[178]"":ct[178]0
  199. 1085 [161]zz$:[139]zz$[178]""[167]1085
  200. 1086 [139]zz$[178]"*"[176]zz$[178]"$"[176]zz$[178]","[176]zz$[178]"@"[176]zz$[178]"?"[167] 1085
  201. 1090 x[178][198](zz$):[139]x[178]20[167]1120
  202. 1095 [139]x[178]13[167]1130
  203. 1100 [139]x[177][178]l1[175]x[179][178]h1[167]1135
  204. 1105 [139]x[177][178]l2[175]x[179][178]h2[167]1135
  205. 1110 [139]x[178]s1[176]x[178]s2[176]x[178]s3[167]1135
  206. 1115 [137]1085
  207. 1120 [139]ct[179]1[167]1085
  208. 1125 [153]"cmd  cmdcmd";:ct[178]ct[171]1:q$[178][200](q$,[195](q$)[171]1):[137]1085
  209. 1130 [151]204,1:[153]" cmd";:[142]
  210. 1135 ct[178]ct[170]1:[139]ct[177]li[167]ct[178]ct[171]1:[137]1085
  211. 1140 [153]rs$zz$o$;:[139]zz$[178][199](34)[167][153][199](34)"cmd cmd";
  212. 1145 q$[178]q$[170]zz$:[137]1085
  213. 1150 l1[178]0:l2[178]l1:h1[178]l1:h2[178]l1:s1[178]l1:s2[178]l1:se[178]l1:rs$[178]"":o$[178]"":[142]
  214. 1155 [161]z$:[139]z$[178]""[167]1155
  215. 1160 [128]
  216. 1165 [151]147,0:[158]57812"fontd",8,1:[158]62631
  217. 1170 [151]53272,19
  218. 1175 [153]"load":[151]53280,3:[151]53281,3
  219. 1180 [153][199](14);
  220. 1185 bi$[178]"                                      "
  221. 1190 [153]"open             (NULL)age 1 of 7              ":[153]bi$
  222. 1195 [153]"    (NULL)ired of spending hours with your "
  223. 1200 [153]" paper and pencil designing title     "
  224. 1205 [153]" letters or characters?  (NULL)his program "
  225. 1210 [153]" will help.                           ":[153]bi$
  226. 1215 [153]"    (NULL)he program reads the bit-pattern "
  227. 1220 [153]" of your title and converts it to     "
  228. 1225 [153]" strings of graphics which print      "
  229. 1230 [153]" letters 4 columns by 4 rows in size. "
  230. 1235 [153]" (NULL)ou may select the lenommodore fonts,  "
  231. 1240 [153]" ten custom fonts, or a font of your  "
  232. 1245 [153]" own design.                          ":[153]bi$
  233. 1250 [153]"    atnfter selecting a font, you will  "
  234. 1255 [153]" enter your title, which can be from  "
  235. 1260 [153]" one to 10 letters.  (NULL)se str$val(NULL)val(NULL)val to    "
  236. 1265 [153]" make corrections.  left$it (NULL)val(NULL)(NULL)(NULL)(NULL) when   "
  237. 1270 [153]" your entry is complete.  (NULL)ome fonts  "
  238. 1275 [153]" require special entry techniques.    "
  239. 1280 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  240. 1285 [151]53281,0
  241. 1290 [161]z$:[139]z$[178]""[167]1290
  242. 1295 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1290
  243. 1300 [145]x[137]1305,1175,1175,1975
  244. 1305 [151]53281,3:[153]"load"
  245. 1310 [153]"             (NULL)age 2 of 7              ":[153]bi$
  246. 1315 [153]"    right$n the (NULL)nderline and (NULL)eversed     "
  247. 1320 [153]" fonts, an underlined or reversed     "
  248. 1325 [153]" space is entered with shift/space.   "
  249. 1330 [153]" (NULL)he str$ouble width font requires two   "
  250. 1335 [153]" characters for each entry.  valnter    "
  251. 1340 [153]" the shifted, followed by the un-     "
  252. 1345 [153]" shifted character (i.e. atn is entered "
  253. 1350 [153]" as 'atna', and 3 as '#3').  (NULL)ero is    "
  254. 1355 [153]" entered as '*0'.                     ":[153]bi$
  255. 1360 [153]"    (NULL)ou will next be asked to select  "
  256. 1365 [153]" a color for each letter in the title."
  257. 1370 [153]" lenolors may be mixed in any way you   "
  258. 1375 [153]" choose.  atnll may be the same, but    "
  259. 1380 [153]" the choice must be made for each.    ":[153]bi$
  260. 1385 [153]"    (NULL)our final choices are the border "
  261. 1390 [153]" and screen colors.  (NULL)creen color the "
  262. 1395 [153]" same as a letter will be refused.    "
  263. 1400 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  264. 1405 [151]53281,0
  265. 1410 [161]z$:[139]z$[178]""[167]1410
  266. 1415 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1410
  267. 1420 [145]x[137]1425,1175,1175,1975
  268. 1425 [151]53281,3:[153]"load"
  269. 1430 [153]"             (NULL)age 3 of 7              ":[153]bi$
  270. 1435 [153]"    lenalculation of the print strings  "
  271. 1440 [153]" will now begin.  (NULL)his takes a        "
  272. 1445 [153]" noticeable time (which always seems  "
  273. 1450 [153]" longer than it actually is).  (NULL)he    "
  274. 1455 [153]" average time is about 5-6 seconds    "
  275. 1460 [153]" for each letter in the title, so the "
  276. 1465 [153]" longest should take only about one   "
  277. 1470 [153]" minute.  (NULL)rogress of the calculation "
  278. 1475 [153]" of the four graphic rows will be     "
  279. 1480 [153]" shown on the screen.  (NULL)hen finished, "
  280. 1485 [153]" a sample of your title will print.   ":[153]bi$
  281. 1490 [153]"    (NULL)ou are now given the option of   "
  282. 1495 [153]" saving the strings to disk.  right$f this "
  283. 1500 [153]" option is chosen, you will be asked  "
  284. 1505 [153]" for a filename, and the data will be "
  285. 1510 [153]" saved as a sequential file.          ":[153]bi$:[153]bi$
  286. 1515 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  287. 1520 [151]53281,0
  288. 1525 [161]z$:[139]z$[178]""[167]1525
  289. 1530 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1525
  290. 1535 [145]x[137]1540,1305,1175,1975
  291. 1540 [151]53281,3:[153]"load"
  292. 1545 [153]"             (NULL)age 4 of 7              ":[153]bi$
  293. 1550 [153]"    (NULL)he program saves the border and  "
  294. 1555 [153]" screen colors, and the number of     "
  295. 1560 [153]" blank spaces which must precede each "
  296. 1565 [153]" string in order to center the line.  "
  297. 1570 [153]" (NULL)he title can be displayed with a    "
  298. 1575 [153]" program such as:                     ":[153]bi$
  299. 1580 [153]" 10 open15,8,15                       "
  300. 1585 [153]" 20 open3,8,3,"[199](34)"0:filename,s,r"[199](34)"        "
  301. 1590 [153]" 30 input#3,bo:input#3,ba:input#3,tb  "
  302. 1595 [153]" 40 fori=1to4:input#3,p$(i):next      "
  303. 1600 [153]" 50 close3:close15                    "
  304. 1605 [153]" 60 poke53280,bo:poke53281,ba         "
  305. 1610 [153]" 70 poke214,[0-19]:print              "
  306. 1615 [153]"  (to position the title vertically)  "
  307. 1620 [153]" 80 fori=1to4:printtab(tb)p$(i):nexti "
  308. 1625 [153]" 90 end                               ":[153]bi$:[153]bi$
  309. 1630 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  310. 1635 [151]53281,0
  311. 1640 [161]z$:[139]z$[178]""[167]1640
  312. 1645 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1640
  313. 1650 [145]x[137]1655,1425,1175,1975
  314. 1655 [151]53281,3:[153]"load"
  315. 1660 [153]"             (NULL)age 5 of 7              ":[153]bi$
  316. 1665 [153]"    (NULL)ith longer titles, this program  "
  317. 1670 [153]" may cause a 'string too long' error  "
  318. 1675 [153]" right$f this occurs, change 40-50 to read ":[153]bi$
  319. 1680 [153]" 40 i=1                               "
  320. 1685 [153]" 45 get#3,z$:x=asc(z$)                "
  321. 1690 [153]" 50 ifx=13theni=i+1:goto45            "
  322. 1695 [153]" 55 p$(i)=p$(i)+z$:ifst=0then45       ":[153]bi$
  323. 1700 [153]"    (NULL)he final option is a printer     "
  324. 1705 [153]" listing of the 4 title lines.  (NULL)he   "
  325. 1710 [153]" abbreviations used are:              ":[153]bi$
  326. 1715 [153]"   (NULL)val(NULL)(NULL)(NULL)=(NULL)everse on (lenontrol-9)       "
  327. 1720 [153]"   (NULL)(NULL)(NULL)ascasc=(NULL)everse off (lenontrol-0)      "
  328. 1725 [153]"   len(NULL)(NULL)=lenommodore key                  "
  329. 1730 [153]"   len(NULL)(NULL)=lenontrol key                    ":[153]bi$:[153]bi$
  330. 1735 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  331. 1740 [151]53281,0
  332. 1745 [161]z$:[139]z$[178]""[167]1745
  333. 1750 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1745
  334. 1755 [145]x[137]1760,1540,1175,1975
  335. 1760 [151]53281,3:[153]"load"
  336. 1765 [153]"             (NULL)age 6 of 7              ":[153]bi$
  337. 1770 [153]"    (NULL)his listing can be used to type  "
  338. 1775 [153]" the data for the four lines into     "
  339. 1780 [153]" your program wherever needed.        ":[153]bi$
  340. 1785 [153]"    (NULL)he lines can also be printed to  "
  341. 1790 [153]" the screen as graphic characters by  "
  342. 1795 [153]" ending the program, then entering in "
  343. 1800 [153]" direct mode:                         ":[153]bi$
  344. 1805 [153]" fori=1to4:printchr$(34)p$(i):nexti   ":[153]bi$
  345. 1810 [153]" (NULL)he resulting lines can be made into "
  346. 1815 [153]" program lines by using the right$(NULL)(NULL)val(NULL)(NULL)    "
  347. 1820 [153]" key to place a line number and str$atn(NULL)atn  "
  348. 1825 [153]" or (NULL)(NULL)right$(NULL)(NULL) before each line, then      "
  349. 1830 [153]" hitting (NULL)val(NULL)(NULL)(NULL)(NULL).  (NULL)his will work      "
  350. 1835 [153]" only if the string is less than two  "
  351. 1840 [153]" screen lines long.                   ":[153]bi$
  352. 1845 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  353. 1850 [151]53281,0
  354. 1855 [161]z$:[139]z$[178]""[167]1855
  355. 1860 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1855
  356. 1865 [145]x[137]1870,1655,1175,1975
  357. 1870 [151]53281,3:[153]"load"
  358. 1875 [153]"             (NULL)age 7 of 7              ":[153]bi$
  359. 1880 [153]"    (NULL)ou can use your own custom fonts,"
  360. 1885 [153]" created with asc(NULL)(NULL)(NULL) len(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)val(NULL) (from   "
  361. 1890 [153]" (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #53) or any similar         "
  362. 1895 [153]" character edit program.  (NULL)he starting"
  363. 1900 [153]" address of your font should be       "
  364. 1905 [153]" changed to $0800.  ((NULL)ee peek(NULL)(NULL)val(NULL): len(NULL)(NULL)(NULL)(NULL)(NULL)"
  365. 1910 [153]" lenleft$atn(NULL)atnlen(NULL)val(NULL)(NULL) on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk #45 for  "
  366. 1915 [153]" methods of doing this.)              ":[153]bi$
  367. 1920 [153]"    (NULL)hen your own font is chosen from "
  368. 1925 [153]" the (NULL)(NULL)right$len(NULL) (NULL)right$(NULL)(NULL)val(NULL) menu, you will be   "
  369. 1930 [153]" asked to enter the filename.  (NULL)here  "
  370. 1935 [153]" are no special restrictions.  atnny    "
  371. 1940 [153]" legal filename may be used.          "
  372. 1945 [129]i[178]1[164]5:[153]bi$:[130]
  373. 1950 [153]"   asc1-ascwd asc3-peekack asc5-1st (NULL)g asc7-(NULL)enu   "
  374. 1955 [151]53281,0
  375. 1960 [161]z$:[139]z$[178]""[167]1960
  376. 1965 x[178][198](z$)[171]132:[139]x[179]1[176]x[177]4[167]1960
  377. 1970 [145]x[137]1870,1760,1175,1975
  378. 1975 [153]"load"[199](142):[151]53280,0:[151]53281,0:[151]53272,21:[142]
  379. 1980 [131]"stop","","","open","clr","","","sys","for","verify","def","poke","print#","print","cont","list"
  380. 1985 [131]" ","cos","log","newwait","rnd","get","sinwait","*wait","*","sin","getwait","rndwait","new"
  381. 1990 [131]"logwait","coswait"," wait"
  382. 1995 [131]"",revon,"wait",rvoff,"stop",ctl-1,"",ctl-2,"",ctl-3,"open",ctl-4,"clr",ctl-5
  383. 2000 [131]"",ctl-6,"",ctl-7,"sys",ctl-8,"for",com-1,"verify",com-2,"def",com-3,"poke",com-4
  384. 2005 [131]"print#",com-5,"print",com-6,"cont",com-7,"list",com-8," ",space,"cos",com-v,"log",com-c
  385. 2010 [131]"new",com-i,"rnd",com-f,"get",com-k,"sin",com-b,"*",com-d,"on",csr-^
  386. 2015 [131]6," 1st ",14," 2nd ",3," 3rd ",1," 4th "
  387. 3000 [153]"load":[151]214,10:[153]:[153]" quit to loadstar? are you sure? (y/n)"
  388. 3001 [161]a$:[139]a$[178]""[167] 3001
  389. 3002 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 3050
  390. 3003 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 265
  391. 3004 [137] 3001
  392. 3050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  393. 3051 [139]er[179][177]63[167] [153]"load":[128]
  394. 3055 [151]2048,0:[153]"loadstopp(NULL)43,1:p(NULL)44,8:load"[199](34)"hello connect"[199](34)",8"
  395. 3060 [151]631,19:[151]632,13:[151]633,82:[151]634,85:[151]635,78:[151]636,13:[151]198,6
  396. 3070 [162]
  397. 3100 [151]214,15:[153]:[153]b$b$b$
  398. 3105 [153]"ononon   printer not detected : press space "
  399. 3107 [161]a$:[139]a$[179][177]" "[167]3107
  400. 3108 [137] 935
  401.